-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 22
-- first background id: 2609
-- card count: 262
-- first card id: 29537
-- list block id: 118585
-- print block id: 29370
-- font table block id: 0
-- style table block id: 0
-- free block count: 3
-- free size: 7296 bytes
-- total size: 1146880 bytes
-- stack block size: 5632 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-----------------------------------------------------------------------
--               Mac School® HyperCard Demonstration
--                  © 1990 Chancery Software Ltd.
--
--                         Version 1.02
--                        August 3, 1990
-----------------------------------------------------------------------
-- Chancery Software Ltd.
-- 450 - 1122 Mainland Street
-- Vancouver BC V6B 5L1  CANADA
--
-- phone: (604) 685-2041   USA and Canada: 1 800 999-9931
-- Apple Link: D0023
-----------------------------------------------------------------------
-- Stack written by: Paul Jones
-- Text and Rolling Demo sequences: Barbara Vanjoff
-- AutoMouse XCMD and Stack Splitter: Hank Van Tunen
-----------------------------------------------------------------------
-- STACK: Mac School® Demo
-- globals:userLevelSetting,blindTypingSetting,interactiveDemo
-- globals:checkLoc1-8,scrollLeft,scrollRight,dailyAttendance
-- globals:buttonNumber,buttonName,buttonID,buttonList,iconList
-- XCMDs:AutoMouse,InstallMenuBar,RestoreMenuBar
-- XCMDs:CheckMenuItem,EnableMenuItem
-- XFCNs:PopUpMenu
-- Fonts:New York (10,12), Geneva (9,10,12,14,18)
-- ICONs:
-- Handlers:
-- Functions:
-----------------------------------------------------------------------

on openStack
  global userLevelSetting,blindTypingSetting
  get the userLevel
  set the userLevel to 2
  put it into userLevelSetting
  get the blindTyping
  set the blindTyping to false
  put it into blindTypingSetting
  set name of this stack to "Mac School® Demo"
  hide message
  hide tool window
  hide pattern window
  AutoMouse Initialize
  get the version
  if it < 1.2 then
    answer "This demo needs HyperCard v1.2 or later."
    go back
  end if
end openStack

on closeStack
  global userLevelSetting,blindTypingSetting
  set name of this stack to "Mac School® Demo"
  set the userLevel to userLevelSetting
  set the blindTyping to blindTypingSetting
  AutoMouse Dispose
end closeStack

on doMenu menuItem
  if menuItem is "Prev" then
    go to previous card of this background
  else if menuItem is "Next" then
    go to next card of this background
  else if menuItem is "First" then
    go to first card of this background
  else if menuItem is "Last" then
    go to last card of this background
  else if ((menuItem is "Help") OR (menuItem is "Delete Card") OR (menuItem is "New Card") OR (menuItem is "Message")) then -- do nothing
  else pass doMenu -- OK
end doMenu

on arrowKey direction
  if direction is "Left" then
    doMenu "Prev"
  else if direction is "Right" then
    doMenu "Next"
  else if direction is "Up" then
    lock screen
    go to card "Demo Shell"
    unlock screen
  else if direction is "Down" then
    -- do nothing
  end if
end arrowKey

function getButton it
if it is empty then get the date
convert it to dateItems
put 41 + item 3 of it into buttonNum
put 1 into item 3 of it
convert it to long date
convert it to dateItems
add item 7 of it to buttonNum
return buttonNum
end getButton

on startUp
  getHomeInfo
end startUp

on resume
  getHomeInfo
end resume

on getHomeInfo
  global userLevelSetting,blindTypingSetting
  global stacks,applications,documents,userName
  set lockMessages to true
  lock screen
  push card
  go to card "User Preferences" of "Home"
  if the result is empty then
    put card field "User Name" into userName
    put card field "User Level" into userLevelSetting
    set powerKeys to the hilite of button "Power Keys"
    set textArrows to the hilite of button "Text Arrows"
    put the hilite of button "Blind Typing" into blindTypingSetting
    put field "paths" of card "stacks" into stacks
    put field "paths" of card "applications" into applications
    put field "paths" of card "documents" into documents
  end if
  pop card
  unlock screen
  set lockMessages to false
end getHomeInfo